home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / FullVersion_Sources / File.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  611 b   |  34 lines
  1. ;
  2. ; ********************************
  3. ;
  4. ; File example file for Pure Basic
  5. ;
  6. ;  © 1999 - Fantaisie Software -
  7. ;
  8. ; ********************************
  9. ;
  10. ;
  11.  
  12. InitFile(0)
  13.  
  14. If CreateFile(0,"ram:PureBasic.test")      ; Create a file and put some text in it.
  15.                                            ;
  16.   WriteStringN("Hello I'm Pure Basic")      ;
  17.   WriteStringN("What do you think of me ?") ;
  18.  
  19.   CloseFile(0)
  20. Endif
  21.  
  22.  
  23. If ReadFile(0,"ram:PureBasic.test'")
  24.  
  25.   PrintN("Displaying file 'Ram:PureBasic.test")
  26.  
  27.   PrintN(ReadString())
  28.   PrintN(ReadString())
  29. Endif
  30.  
  31. MouseWait()
  32.  
  33. End   ; File is automagically closed at the end.
  34.